home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64 / klang dynamisch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  748b  |  34 lines
  1. 100 rem--------------------------------
  2. 110 rem klangeffekte mit
  3. 120 rem dynamischer frequenzsteuerung
  4. 130 rem--------------------------------
  5. 140 s=54272
  6. 150 read a,d,su,r,c,p,f,g,n,m
  7. 160 poke s+5 ,16*a +d
  8. 170 poke s+6 ,16*su+r
  9. 180 poke s+2 ,p and 255
  10. 190 poke s+3 ,p/256
  11. 200 poke s+23,0     :rem fr
  12. 210 poke s+24,15    :rem ml
  13. 220 get a$:if a$="" then 220
  14. 230 for i=1 to m
  15. 240 : f1=f
  16. 250 : poke s+4,c or 1
  17. 260 : for j=1 to n
  18. 270 :   poke s,f1 and 255
  19. 280 :   poke s+1,f1/256
  20. 290 :   f1=f1*g
  21. 300 : next j
  22. 310 : poke s+4,c
  23. 320 next i
  24. 330 goto 220
  25. 400 rem--------------------------------
  26. 410 rem parameter
  27. 420 data 0 ,10, 0,10:rem a d su r
  28. 430 data 16         :rem control-byte c
  29. 440 data 2048       :rem pulsweite p
  30. 450 data 16000      :rem frequenz f
  31. 460 data 1.33       :rem faktor g
  32. 470 data 2          :rem anzahl n
  33. 480 data 25         :rem anzahl m
  34.